home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 15 / BBS in a box XV-1.iso / Files / Tele / C / CommsService 2.0.2.sit / commsService 2.0.2 Final / Service Definition Files / Saskatchewan Uni. < prev   
Encoding:
Text File  |  1994-09-06  |  1.3 KB  |  32 lines  |  [TEXT/cSSv]
  1. #
  2. # commsService 2.0 Service Definition File.
  3. #
  4. Name=Saskatchewan Uni.
  5. Description=Provides access to the University of Saskatchewan's  Hytelnet server.
  6.  
  7. TimeOut=0
  8. BreakEnabled=No
  9. PagesToScroll=30
  10. ConnectionTool=TGE TCP Tool
  11. ConnectionTokens=HostName access.usask.ca PortNumber 23 ConnectionType TELNET TelnetBinaryMode FALSE TerminalType VT100
  12. ConnectionMenu=No
  13. TerminalTool=VT102 Tool
  14. TerminalTokens=FontSize 9 Width 80 Cursor Underline Online True LocalEcho False AutoRepeat True RepeatControls True AutoWrap True NewLine False Scroll Jump ShowControls False SwapBackspaceDelete False TerminalMode ANSI/VT102 ShowStatusBar False ShowTabRuler False InverseVideo False InsertChar False OriginAtMargin False KeyClick False CursorKey Application Keypad Application AnswerBack "" KeyboardLocked False ActiveCharSet G0 NRCSet USASCII G0 USASCII G1 USASCII G2 USASCII G3 USASCII
  15. TerminalMenu=No
  16. FKeySettings=URICA.DEV,2MANY^MDOT^MTB^M
  17.  
  18. ServiceScripts=on LoginToService
  19. Global ActiveService, FoundString
  20. if ExpectFromService(ActiveService, 20, true, true, "login:") then
  21. if FoundString = 1 then
  22. if SendToService(ActiveService, "hytelnet" & return, "") then
  23. if ExpectFromService(ActiveService, 20, true, true, "Welcome to HYTELNET") then
  24. if FoundString = 1 then return true
  25. end if
  26. end if
  27. end if
  28. end if
  29. return false
  30. end LoginToService
  31.  
  32.